home *** CD-ROM | disk | FTP | other *** search
/ Softdisk Supreme / Softdisk Supreme.iso / pc / DSK Files / 0-49 / SD022c.dsk / SOFTDISK.EVALUATOR.bas < prev    next >
BASIC Source File  |  2003-06-12  |  1KB  |  26 lines
  1. 10  TEXT : HOME :D$ =  CHR$(4)
  2. 20  VTAB (12): HTAB (8): FLASH : PRINT "* * * ";: NORMAL : INVERSE : PRINT "THE EVALUATOR";: NORMAL : FLASH : PRINT " * * *": NORMAL 
  3. 30  VTAB (20): PRINT "PRESS X TO EXIT": PRINT "PRESS ANY OTHER LETTER TO CONTINUE": GET A$: IF A$ = "X"  THEN  GOTO 10000
  4. 40  HOME : VTAB (4)
  5. 50  HTAB (5): PRINT "A = ABOUT THE EVALUATOR"
  6. 60  VTAB (6): HTAB (5): PRINT "B = BOOK REVIEW"
  7. 70  VTAB (8): HTAB (5): PRINT "C = CLASSIC SOFTWARE REVIEW"
  8. 80  VTAB (10): HTAB (5): PRINT "D = NEW GAME REVIEW"
  9. 90  VTAB (12): HTAB (5): PRINT "E = UTILITY REVIEW"
  10. 100  VTAB (14): HTAB (5): PRINT "F = BACK TO SOFTIE"
  11. 110  VTAB (17): HTAB (8): PRINT "PLEASE MAKE YOUR SELECTION? ";:: GET A$: PRINT A$;
  12. 120  IF A$ = "A"  THEN  GOTO 1000
  13. 130  IF A$ = "B"  THEN  GOTO 2000
  14. 140  IF A$ = "C"  THEN  GOTO 3000
  15. 150  IF A$ = "D"  THEN  GOTO 4000
  16. 160  IF A$ = "E"  THEN  GOTO 5000
  17. 170  IF A$ = "F"  THEN  GOTO 10000
  18. 180  GOTO 110
  19. 1000  PRINT D$;"RUN ABOUT.EVALUATOR"
  20. 2000  PRINT D$;"RUN EVAL.BOOK.REVIEW"
  21. 3000  PRINT D$;"RUN EVAL.CLAS.REVIEW"
  22. 4000  PRINT D$;"RUN EVAL.GAME.REVIEW"
  23. 5000  PRINT D$;"RUN EVAL.BUSS.REVIEW"
  24. 10000  REM 
  25. 10005  PRINT  CHR$(13)
  26. 10010  PRINT D$;"RUN KICK.IT.OFF"